VERSION 5.00
Begin VB.Form frmContractor 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Contractor Batch Exporter"
   ClientHeight    =   8070
   ClientLeft      =   45
   ClientTop       =   615
   ClientWidth     =   9585
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8070
   ScaleWidth      =   9585
   StartUpPosition =   2  'CenterScreen
   Begin VB.ListBox List1 
      Height          =   1425
      Left            =   9600
      TabIndex        =   150
      Top             =   1440
      Width           =   735
   End
   Begin VB.ListBox lstColumnName 
      Height          =   2595
      Left            =   10200
      TabIndex        =   96
      Top             =   2640
      Width           =   2415
   End
   Begin VB.ListBox lstFilesInDocumentTemp 
      Height          =   2400
      Left            =   10440
      TabIndex        =   148
      Top             =   1440
      Width           =   2055
   End
   Begin VB.Frame FraNewDatabaseName 
      BackColor       =   &H80000008&
      BorderStyle     =   0  'None
      Height          =   2535
      Left            =   9960
      TabIndex        =   3
      Top             =   2280
      Visible         =   0   'False
      Width           =   3735
      Begin VB.Frame Frame1 
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         Height          =   2295
         Left            =   120
         TabIndex        =   4
         Top             =   120
         Width           =   3495
         Begin VB.CommandButton cmdCancelPrepairNewDatabase 
            Caption         =   "Cancel"
            Height          =   1095
            Left            =   1920
            Style           =   1  'Graphical
            TabIndex        =   7
            Top             =   960
            Width           =   1215
         End
         Begin VB.TextBox txtNewDatabaseName 
            Height          =   375
            Left            =   360
            MaxLength       =   8
            TabIndex        =   6
            Top             =   360
            Width           =   2775
         End
         Begin VB.CommandButton cmdPrepareNewDatabase 
            Caption         =   "Prepair New Database"
            Height          =   1095
            Left            =   360
            Style           =   1  'Graphical
            TabIndex        =   5
            Top             =   960
            Width           =   1215
         End
      End
   End
   Begin VB.Data dtaUniqueDocName 
      Caption         =   "dtaUniqueDocName"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   300
      Left            =   2520
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   1200
      Visible         =   0   'False
      Width           =   3015
   End
   Begin VB.Data dtaStoreInfo 
      Caption         =   "dtaStoreInfo"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   300
      Left            =   9960
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   8280
      Width           =   2415
   End
   Begin VB.ListBox lstColumnType 
      Height          =   2400
      Left            =   10440
      TabIndex        =   147
      Top             =   3480
      Width           =   2055
   End
   Begin VB.Frame Frame4 
      Height          =   2895
      Left            =   7200
      TabIndex        =   144
      Top             =   120
      Width           =   2295
      Begin VB.ListBox lstFilesInDocument 
         Height          =   1425
         Left            =   120
         TabIndex        =   146
         Top             =   1320
         Width           =   2055
      End
      Begin VB.CommandButton cmdAddFiles 
         Caption         =   "Add Files to Document"
         Height          =   975
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   145
         Top             =   240
         Width           =   2055
      End
   End
   Begin VB.Frame Frame3 
      Height          =   5055
      Left            =   7200
      TabIndex        =   139
      Top             =   2880
      Width           =   2295
      Begin VB.CommandButton cmdView 
         Caption         =   "View File"
         Height          =   855
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   149
         Top             =   1200
         Width           =   2055
      End
      Begin VB.CommandButton cmdExit 
         Caption         =   "Exit"
         Height          =   855
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   143
         Top             =   4080
         Width           =   2055
      End
      Begin VB.CommandButton cmdClear 
         Caption         =   "Clear Entries"
         Height          =   855
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   142
         Top             =   3120
         Width           =   2055
      End
      Begin VB.CommandButton cmdSave 
         Caption         =   "Save Document"
         Height          =   855
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   141
         Top             =   2160
         Width           =   2055
      End
      Begin VB.CommandButton cmdCallPrepairNewDatabase 
         Caption         =   "Prepair New Database"
         Height          =   855
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   140
         Top             =   240
         Width           =   2055
      End
   End
   Begin VB.Data Data3 
      Caption         =   "Data3"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   7800
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   9360
      Width           =   1935
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   39
      Left            =   7560
      TabIndex        =   138
      Text            =   "Combo1"
      Top             =   11880
      Width           =   1935
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   38
      Left            =   5400
      TabIndex        =   137
      Text            =   "Combo1"
      Top             =   11880
      Width           =   1935
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   37
      Left            =   3240
      TabIndex        =   136
      Text            =   "Combo1"
      Top             =   11880
      Width           =   1935
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   36
      Left            =   1080
      TabIndex        =   135
      Text            =   "Combo1"
      Top             =   11880
      Width           =   1935
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   35
      Left            =   7560
      TabIndex        =   134
      Text            =   "Combo1"
      Top             =   11280
      Width           =   1935
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   34
      Left            =   5400
      TabIndex        =   133
      Text            =   "Combo1"
      Top             =   11280
      Width           =   1935
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   33
      Left            =   3240
      TabIndex        =   132
      Text            =   "Combo1"
      Top             =   11280
      Width           =   1935
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   32
      Left            =   1080
      TabIndex        =   131
      Text            =   "Combo1"
      Top             =   11280
      Width           =   1935
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   31
      Left            =   7560
      TabIndex        =   130
      Text            =   "Combo1"
      Top             =   10680
      Width           =   1935
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   30
      Left            =   5400
      TabIndex        =   129
      Text            =   "Combo1"
      Top             =   10680
      Width           =   1935
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   29
      Left            =   4800
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   128
      Top             =   10080
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   28
      Left            =   2520
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   127
      Top             =   10080
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   27
      Left            =   240
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   126
      Top             =   10080
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   26
      Left            =   4920
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   125
      Top             =   7560
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   25
      Left            =   2640
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   124
      Top             =   7560
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   24
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   123
      Top             =   7560
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   23
      Left            =   4920
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   122
      Top             =   6960
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   22
      Left            =   2640
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   121
      Top             =   6960
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   21
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   120
      Top             =   6960
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   20
      Left            =   4920
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   119
      Top             =   6360
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   19
      Left            =   2640
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   118
      Top             =   6360
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   18
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   117
      Top             =   6360
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   17
      Left            =   4920
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   116
      Top             =   5760
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   16
      Left            =   2640
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   115
      Top             =   5760
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   15
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   114
      Top             =   5760
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   14
      Left            =   4920
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   113
      Top             =   5160
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   13
      Left            =   2640
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   112
      Top             =   5160
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   12
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   111
      Top             =   5160
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   11
      Left            =   4920
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   110
      Top             =   4560
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   10
      Left            =   2640
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   109
      Top             =   4560
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   9
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   108
      Top             =   4560
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   8
      Left            =   4920
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   107
      Top             =   3960
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   7
      Left            =   2640
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   106
      Top             =   3960
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   6
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   105
      Top             =   3960
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   5
      Left            =   4920
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   104
      Top             =   3360
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   4
      Left            =   2640
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   103
      Top             =   3360
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   3
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   102
      Top             =   3360
      Width           =   2055
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   2
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   101
      Top             =   2760
      Width           =   6615
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   1
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   100
      Top             =   2160
      Width           =   6615
   End
   Begin VB.ComboBox cboInput 
      Height          =   315
      Index           =   0
      Left            =   360
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   99
      Top             =   1560
      Width           =   6615
   End
   Begin VB.ListBox lstHumanName 
      Height          =   2595
      Left            =   10080
      TabIndex        =   98
      Top             =   3120
      Width           =   2415
   End
   Begin VB.Data Data2 
      Caption         =   "Data2"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   5640
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   9360
      Width           =   2175
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   39
      Left            =   7560
      TabIndex        =   54
      Top             =   11880
      Width           =   1935
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   38
      Left            =   5400
      TabIndex        =   53
      Top             =   11880
      Width           =   1935
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   37
      Left            =   3240
      TabIndex        =   52
      Top             =   11880
      Width           =   1935
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   36
      Left            =   1080
      TabIndex        =   51
      Top             =   11880
      Width           =   1935
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   35
      Left            =   7560
      TabIndex        =   50
      Top             =   11280
      Width           =   1935
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   34
      Left            =   5400
      TabIndex        =   49
      Top             =   11280
      Width           =   1935
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   33
      Left            =   3240
      TabIndex        =   48
      Top             =   11280
      Width           =   1935
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   32
      Left            =   1080
      TabIndex        =   47
      Top             =   11280
      Width           =   1935
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   31
      Left            =   7560
      TabIndex        =   46
      Top             =   10680
      Width           =   1935
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   30
      Left            =   5400
      TabIndex        =   45
      Top             =   10680
      Width           =   1935
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   29
      Left            =   4800
      TabIndex        =   44
      Top             =   10080
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   28
      Left            =   2520
      TabIndex        =   43
      Top             =   10080
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   27
      Left            =   240
      TabIndex        =   42
      Top             =   10080
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   26
      Left            =   4920
      TabIndex        =   41
      Top             =   7560
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   25
      Left            =   2640
      TabIndex        =   40
      Top             =   7560
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   24
      Left            =   360
      TabIndex        =   39
      Top             =   7560
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   23
      Left            =   4920
      TabIndex        =   38
      Top             =   6960
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   22
      Left            =   2640
      TabIndex        =   37
      Top             =   6960
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   21
      Left            =   360
      TabIndex        =   36
      Top             =   6960
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   20
      Left            =   4920
      TabIndex        =   35
      Top             =   6360
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   19
      Left            =   2640
      TabIndex        =   34
      Top             =   6360
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   18
      Left            =   360
      TabIndex        =   33
      Top             =   6360
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   17
      Left            =   4920
      TabIndex        =   32
      Top             =   5760
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   16
      Left            =   2640
      TabIndex        =   31
      Top             =   5760
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   15
      Left            =   360
      TabIndex        =   30
      Top             =   5760
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   14
      Left            =   4920
      TabIndex        =   29
      Top             =   5160
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   13
      Left            =   2640
      TabIndex        =   28
      Top             =   5160
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   12
      Left            =   360
      TabIndex        =   27
      Top             =   5160
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   11
      Left            =   4920
      TabIndex        =   26
      Top             =   4560
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   10
      Left            =   2640
      TabIndex        =   25
      Top             =   4560
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   9
      Left            =   360
      TabIndex        =   24
      Top             =   4560
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   8
      Left            =   4920
      TabIndex        =   23
      Top             =   3960
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   7
      Left            =   2640
      TabIndex        =   22
      Top             =   3960
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   6
      Left            =   360
      TabIndex        =   21
      Top             =   3960
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   5
      Left            =   4920
      TabIndex        =   20
      Top             =   3360
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   4
      Left            =   2640
      TabIndex        =   19
      Top             =   3360
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   3
      Left            =   360
      TabIndex        =   18
      Top             =   3360
      Width           =   2055
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   2
      Left            =   360
      MaxLength       =   50
      TabIndex        =   17
      Top             =   2760
      Width           =   6615
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   1
      Left            =   360
      TabIndex        =   16
      Top             =   2160
      Width           =   6615
   End
   Begin VB.TextBox txtInput 
      Height          =   285
      Index           =   0
      Left            =   360
      TabIndex        =   15
      Top             =   1560
      Width           =   6615
   End
   Begin VB.ComboBox cboContentsType 
      Height          =   315
      Left            =   4800
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   13
      Top             =   840
      Width           =   2175
   End
   Begin VB.TextBox txtDocName 
      Height          =   315
      Left            =   360
      MaxLength       =   40
      TabIndex        =   10
      Top             =   840
      Width           =   2055
   End
   Begin VB.Frame Frame2 
      Height          =   5295
      Left            =   10080
      TabIndex        =   8
      Top             =   0
      Width           =   2175
      Begin VB.CommandButton cmdBoxesByeBye 
         Caption         =   "cmdBoxesByeBye"
         Height          =   255
         Left            =   240
         TabIndex        =   97
         Top             =   720
         Width           =   1575
      End
      Begin VB.CommandButton cmdBuildBoxes 
         Caption         =   "cmdBuildBoxes"
         Height          =   255
         Left            =   240
         TabIndex        =   55
         Top             =   1080
         Width           =   1575
      End
      Begin VB.CommandButton cmdInitialize 
         Caption         =   "cmdInitialize"
         Height          =   255
         Left            =   240
         TabIndex        =   9
         Top             =   360
         Width           =   1575
      End
   End
   Begin VB.TextBox txtDatabase 
      Height          =   285
      Left            =   375
      TabIndex        =   2
      Top             =   240
      Width           =   6240
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   3480
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   9360
      Width           =   2175
   End
   Begin VB.ComboBox cboApplication 
      Height          =   315
      Left            =   2520
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   840
      Width           =   2175
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   9600
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   39
      Left            =   7560
      TabIndex        =   95
      Top             =   11640
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   38
      Left            =   5400
      TabIndex        =   94
      Top             =   11640
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   37
      Left            =   3240
      TabIndex        =   93
      Top             =   11640
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   36
      Left            =   1080
      TabIndex        =   92
      Top             =   11640
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   35
      Left            =   7560
      TabIndex        =   91
      Top             =   11040
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   34
      Left            =   5400
      TabIndex        =   90
      Top             =   11040
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   33
      Left            =   3240
      TabIndex        =   89
      Top             =   11040
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   32
      Left            =   1080
      TabIndex        =   88
      Top             =   11040
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   31
      Left            =   7560
      TabIndex        =   87
      Top             =   10440
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   30
      Left            =   5400
      TabIndex        =   86
      Top             =   10440
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   29
      Left            =   4800
      TabIndex        =   85
      Top             =   9840
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   28
      Left            =   2520
      TabIndex        =   84
      Top             =   9840
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   27
      Left            =   240
      TabIndex        =   83
      Top             =   9840
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   26
      Left            =   4920
      TabIndex        =   82
      Top             =   7320
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   25
      Left            =   2640
      TabIndex        =   81
      Top             =   7320
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   24
      Left            =   360
      TabIndex        =   80
      Top             =   7320
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   23
      Left            =   4920
      TabIndex        =   79
      Top             =   6720
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   22
      Left            =   2640
      TabIndex        =   78
      Top             =   6720
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   21
      Left            =   360
      TabIndex        =   77
      Top             =   6720
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   20
      Left            =   4920
      TabIndex        =   76
      Top             =   6120
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   19
      Left            =   2640
      TabIndex        =   75
      Top             =   6120
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   18
      Left            =   360
      TabIndex        =   74
      Top             =   6120
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   17
      Left            =   4920
      TabIndex        =   73
      Top             =   5520
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   16
      Left            =   2640
      TabIndex        =   72
      Top             =   5520
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   15
      Left            =   360
      TabIndex        =   71
      Top             =   5520
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   14
      Left            =   4920
      TabIndex        =   70
      Top             =   4920
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   13
      Left            =   2640
      TabIndex        =   69
      Top             =   4920
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   12
      Left            =   360
      TabIndex        =   68
      Top             =   4920
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   11
      Left            =   4920
      TabIndex        =   67
      Top             =   4320
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   10
      Left            =   2640
      TabIndex        =   66
      Top             =   4320
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   9
      Left            =   360
      TabIndex        =   65
      Top             =   4320
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   8
      Left            =   4920
      TabIndex        =   64
      Top             =   3720
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   7
      Left            =   2640
      TabIndex        =   63
      Top             =   3720
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   6
      Left            =   360
      TabIndex        =   62
      Top             =   3720
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   5
      Left            =   4920
      TabIndex        =   61
      Top             =   3120
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   4
      Left            =   2640
      TabIndex        =   60
      Top             =   3120
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   3
      Left            =   360
      TabIndex        =   59
      Top             =   3120
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   2
      Left            =   360
      TabIndex        =   58
      Top             =   2520
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   1
      Left            =   360
      TabIndex        =   57
      Top             =   1920
      Width           =   1935
   End
   Begin VB.Label lblInput 
      Caption         =   "lblInput"
      Height          =   255
      Index           =   0
      Left            =   360
      TabIndex        =   56
      Top             =   1320
      Width           =   1935
   End
   Begin VB.Shape Shape1 
      Height          =   855
      Left            =   10200
      Top             =   10920
      Width           =   1215
   End
   Begin VB.Label Label4 
      Caption         =   "Database Name"
      Height          =   255
      Left            =   360
      TabIndex        =   14
      Tag             =   "Database"
      Top             =   0
      Width           =   3255
   End
   Begin VB.Label Label3 
      Caption         =   "Type of Document"
      Height          =   255
      Left            =   4800
      TabIndex        =   12
      Top             =   600
      Width           =   2175
   End
   Begin VB.Label Label2 
      Caption         =   "Document Name"
      Height          =   255
      Left            =   360
      TabIndex        =   11
      Top             =   600
      Width           =   1335
   End
   Begin VB.Image Image1 
      Height          =   285
      Left            =   6600
      Stretch         =   -1  'True
      Top             =   240
      Width           =   285
   End
   Begin VB.Label Label1 
      Caption         =   "Application"
      Height          =   255
      Left            =   2520
      TabIndex        =   1
      Top             =   600
      Width           =   2175
   End
   Begin VB.Menu mnuFile 
      Caption         =   "File"
      Begin VB.Menu mnuPrepareDB 
         Caption         =   "Prepare A New Database"
      End
      Begin VB.Menu mnuSep 
         Caption         =   "-"
      End
      Begin VB.Menu mnuDBSelect 
         Caption         =   "Select A Database"
      End
      Begin VB.Menu mnuAddFiles 
         Caption         =   "Add Files to Document"
      End
      Begin VB.Menu mnuClear 
         Caption         =   "Clear Entries"
      End
      Begin VB.Menu mnuSaveDoc 
         Caption         =   "Save Document"
      End
      Begin VB.Menu mnuSep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "Help"
      Begin VB.Menu mnuContents 
         Caption         =   "Contents"
      End
      Begin VB.Menu mnuSep3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "About"
      End
   End
End
Attribute VB_Name = "frmContractor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
 
Private Sub cboApplication_Click()
lstColumnName.Clear

cmdBoxesByeBye_Click

cmdBuildBoxes_Click
End Sub

Private Sub cboInput_Click(Index As Integer)



Dim MyText As String
Dim MyColumnName As String

glbWhichIndexNumber = Index
lstColumnName.Selected(Index) = True
MyColumnName = lstColumnName.Text

'MsgBox Str(glbWhichIndexNumber)

MyText = Trim(cboInput(Index).Text)
'MsgBox MyText

'Exit Sub

'xxxxxxxxxxxxxx

Dim MyReceivingColumnName As String
               
        SQL = "select * from SubDropDownList where ApplicationName='" & cboApplication.Text & "' and CallingColumnName='" & MyColumnName & "'"
        SQL = SQL & " and Association='" & MyText & "'"
        'MsgBox SQL
        Data3.RecordSource = SQL
        Data3.Refresh
              
        If Data3.Recordset.EOF Then GoTo MissingAssociation
              
        MyReceivingColumnName = Data3.Recordset("ReceivingColumnName")
  
        'MsgBox MyReceivingColumnName
        
        Dim MyReceivingColumnNumber As Integer
        Dim x As Integer
        
   ''''''''''''''''''''''''''''' find which cbo to fill
            
            Do Until x = lstColumnName.ListCount
                lstColumnName.Selected(x) = True
                    If Trim(lstColumnName.Text) = Trim(MyReceivingColumnName) Then
                        MyReceivingColumnNumber = x
                    End If
                x = x + 1
            Loop
            
 ''''''''''''''''''''''''''''' empty the cbo
 cboInput(MyReceivingColumnNumber).Clear
 
 ''''''''''''''''''''''''''''' fill the cbo
 Data3.Recordset.MoveFirst
 
 Do Until Data3.Recordset.EOF
    cboInput(MyReceivingColumnNumber).AddItem Data3.Recordset("SubList")
    Data3.Recordset.MoveNext
 Loop
 
Exit Sub

MissingAssociation:
'MsgBox "Your database is missing an important association please contact your administrator or download a new database template."

End Sub

Private Sub cboInput_LostFocus(Index As Integer)
txtInput(Index).Text = cboInput(Index).Text
End Sub

Private Sub cmdAddFiles_Click()

Dim HoldTheName As String
' show common dialog box to select a file
        frmDialog!CommonDialog1.ShowOpen
         'frmDialog!CommonDialog2.Filter = "Database Files| *.mdb"

 Dim x1 As Integer
       x1 = 0
 
Dim CompareToString As String
Dim CompareString As String
Dim CompareCharacter As String

CompareToString = frmDialog!CommonDialog1.filename

List1.AddItem CompareToString ' this is needed to retain the original path so that
                              ' the user may view the document before sending it.
                              ' this path is not necessary after the send because
                              'all images reside are pathed in the importer

Do Until x1 = Len(CompareToString)
   CompareString = Left(CompareToString, Len(CompareToString) - x1)
   'MsgBox CompareString
   CompareCharacter = Right(CompareString, 1)
   'MsgBox CompareCharacter
   If CompareCharacter = "\" Then
    GoTo FoundIt
   End If
   
x1 = x1 + 1

Loop

MsgBox "You did not select a valid document."
 
Exit Sub

FoundIt:
HoldTheName = Right(CompareToString, x1)
       
       
       
       
       
       
       lstFilesInDocument.AddItem HoldTheName
       
       
       
     
End Sub

Private Sub cmdBoxesByeBye_Click()
Dim x As Integer
x = 0
Do Until x = 40 'turns off all attribute boxes
    lblInput(x).Visible = False
    
        txtInput(x).Text = ""
        'cboInput(x).Text = ""
    txtInput(x).Visible = False
    cboInput(x).Clear
    cboInput(x).Visible = False
    x = x + 1
    
Loop
End Sub

Private Sub cmdBuildBoxes_Click()

''''''''''''''''''''''''''''''''''''get the labels

Dim strColumnName As String
Dim SQL As String
Data3.DatabaseName = txtDatabase.Text

Data2.DatabaseName = txtDatabase.Text
SQL = "select * from ColumnInfo where ApplicationName='" & cboApplication.Text & "'"

SQL = SQL & " order by OrderOfDisplay"

'MsgBox SQL
'Exit Sub

Data2.RecordSource = SQL
Data2.Refresh


Do Until Data2.Recordset.EOF
    
    strColumnName = Data2.Recordset("ColumnName")
    'MsgBox strColumnName
    lstColumnName.AddItem strColumnName
    Data2.Recordset.MoveNext
Loop

''''''''''''''''''''''''''''''''''''get the human names and box to display type

Dim strHumanName As String
 
Data2.Recordset.MoveFirst
 
Do Until Data2.Recordset.EOF
    
    strHumanName = Data2.Recordset("HumanName") & "                                                  " & Data2.Recordset("ShownAs")
    
    lstHumanName.AddItem strHumanName
    Data2.Recordset.MoveNext
Loop

''''''''''''''''''''''''''''''''''''get the data type so dates can be validated

Dim strColumnType As String
 
Data2.Recordset.MoveFirst
 
Do Until Data2.Recordset.EOF
    
    strColumnType = Data2.Recordset("ColumnType")
    
    lstColumnType.AddItem strColumnType
    Data2.Recordset.MoveNext
Loop

'''''''''''''''''''''''''''''''''''make all boxes invisible so we can start fresh

cmdBoxesByeBye_Click
 
'MsgBox "turned off"

'''''''''''''''''''''''''''''''''''show the boxes

 x = 0
 'this builds the number of boxes that is needed by a particular
Do Until x = lstColumnName.ListCount
    lstHumanName.Selected(x) = True
    lstColumnName.Selected(x) = True
    If Trim(Right(lstHumanName.Text, 20)) = "SINGLE" Then
            txtInput(x).Visible = True
    Else
            cboInput(x).Visible = True
              'SQL = "select * from DropDownList where ApplicationName='" & cboApplication.Text & "' and ColumnName='" & Trim(lstColumnName.Text) & "'"
               SQL = "select distinct DropDownValue from DropDownList where ApplicationName='" & cboApplication.Text & "' and ColumnName='" & Trim(lstColumnName.Text) & "'"
              Data3.RecordSource = SQL
              Data3.Refresh
              Do Until Data3.Recordset.EOF
                 cboInput(x).AddItem Data3.Recordset("DropDownValue")
                 Data3.Recordset.MoveNext
              Loop
                
    End If
    
    lblInput(x).Visible = True
    lblInput(x).Caption = Trim(Left(lstHumanName.Text, 50))
  ' MsgBox Str(x)
   
   x = x + 1

Loop

   Exit Sub
   


'ScrollAttribute.Value = 0
End Sub

Private Sub cmdCallPrepairNewDatabase_Click()
FraNewDatabaseName.Visible = True
FraNewDatabaseName.Left = 2520
FraNewDatabaseName.Top = 1800
txtNewDatabaseName.SetFocus
End Sub

Private Sub cmdCancelPrepairNewDatabase_Click()
FraNewDatabaseName.Visible = False
End Sub

Private Sub cmdClear_Click()

Dim x As Integer
x = 0

Do Until x = 40

cboInput(x).Clear
txtInput(x).Text = ""

x = x + 1
Loop

lstFilesInDocument.Clear

txtDocName.Text = ""

If txtDatabase.Text = "" Then
    MsgBox "You have not selected a valid Database. Please select a database."
    Image1_Click
    Exit Sub
End If

cmdInitialize_Click
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdInitialize_Click()
Dim AppName As String
Dim ContentsType As String
Dim ContentsNumber As String

cboApplication.Clear
cboContentsType.Clear
'''''''''''''''''''''''''''''''''''''''''''fill app cbo
Data1.DatabaseName = txtDatabase.Text

Data1.RecordSource = "select * from Applications"
Data1.Refresh


Do Until Data1.Recordset.EOF
    
    AppName = Data1.Recordset("Application")
    
    cboApplication.AddItem AppName
    Data1.Recordset.MoveNext
    
Loop

'''''''''''''''''''''''''''''''''''''''''''''''fill contents type cbo
Data1.RecordSource = "select * from Filetypes"
Data1.Refresh


Do Until Data1.Recordset.EOF
    
    ContentsType = Data1.Recordset("FileType")
    ContentsNumber = Data1.Recordset("FileTypeNumber")
    cboContentsType.AddItem ContentsType & "                                                  " & ContentsNumber
    Data1.Recordset.MoveNext
Loop


End Sub


Private Sub cmdPrepareNewDatabase_Click()


If txtNewDatabaseName.Text = "" Then
    MsgBox "You have not entered a valid database name."
    Exit Sub
End If

If UCase(txtNewDatabaseName.Text) = "EDMS" Then
    MsgBox "EDMS is a template database. You can not use EDMS as a database name."
    Exit Sub
End If

''''''''''''''''''''''''''''''' check to see if the file exists
Dim DataCheck As Long

Open App.Path & "\" & txtNewDatabaseName.Text & ".mdb" For Binary As #3
    Get #3, , DataCheck
       Close #3
   ' MsgBox Str(DataCheck)
         
        If DataCheck <> 0 Then
            MsgBox "You already have a database file by this name. Please select another name."
            txtNewDatabaseName.SetFocus
            Exit Sub
        End If
 
    
    
    
SourceFile = App.Path & "\edms.mdb" ' Define source file name.
                        'MsgBox SourceFile
DestinationFile = App.Path & "\" & txtNewDatabaseName.Text & ".mdb"    ' Define target file name.
    'MsgBox DestinationFile
FileCopy SourceFile, DestinationFile

txtDatabase.Text = DestinationFile
txtNewDatabaseName.Text = ""

cmdInitialize_Click

End Sub

Private Sub cmdSave_Click()

If txtDatabase.Text = "" Then
    MsgBox "You have not selected a valid Database. Please select a database."
    Image1_Click
    Exit Sub
End If

If txtDocName.Text = "" Then
    MsgBox "You have not provided a valid Document Name. This is required information."
    txtDocName.SetFocus
    Exit Sub
End If

''''''''''''''''''''''''''''''''''''check for uniqueness of doc name
dtaUniqueDocName.DatabaseName = txtDatabase.Text

dtaUniqueDocName.RecordSource = "select * from DocNames where DocName='" & txtDocName.Text & "'"
dtaUniqueDocName.Refresh
 
If dtaUniqueDocName.Recordset.EOF Then GoTo IsUnique

MsgBox "This is not a unique Document name. You may have accidently clicked the save button twice. Please rename your document if you wish to save it again."
txtDocName.SetFocus
Exit Sub

IsUnique:
'''''''''''''''''''''''''''''''check to make sure all necessary steps were followed
 

If cboApplication.Text = "" Then
    MsgBox "You have not selected a valid Application. This is required information."
    cboApplication.SetFocus
    Exit Sub
End If

If cboContentsType.Text = "" Then
    MsgBox "You have not selected a Type of Document. This is required information."
    cboContentsType.SetFocus
    Exit Sub
End If
'''''''''''''''''''''''''''''''''''make sure the user added the file names
If lstFilesInDocument.ListCount = 0 Then
    MsgBox "You have not added any files for this document. Documents that have no files are not imported into the database. Please add files by clicking on the Add Files To Document Button."
    Exit Sub
End If

'''''''''''''''''''''''''''''''''''adding the attributes
Dim DaColumnName As String
dtaStoreInfo.DatabaseName = txtDatabase.Text

dtaStoreInfo.RecordSource = "DocNames"
dtaStoreInfo.Refresh

Dim qwe As Integer
qwe = 0

dtaStoreInfo.Recordset.AddNew
    dtaStoreInfo.Recordset("DocName") = txtDocName.Text
dtaStoreInfo.Recordset.Update
    
dtaStoreInfo.RecordSource = "select * from DocNames where DocName='" & txtDocName.Text & "'"
dtaStoreInfo.Refresh

Do Until qwe = lstColumnName.ListCount
    lstColumnName.Selected(qwe) = True
    'MsgBox txtInput(qwe).Text
    'MsgBox lstColumnName.Text
    
    If Len(txtInput(qwe).Text) > 0 Then
        dtaStoreInfo.Recordset.Edit
        dtaStoreInfo.Recordset(lstColumnName.Text) = txtInput(qwe).Text
        dtaStoreInfo.Recordset.Update
    End If

    qwe = qwe + 1
Loop
''''''''''''''''''''''''''''''''''''''''''''''adding system information
        dtaStoreInfo.Recordset.Edit
        dtaStoreInfo.Recordset("CONTENTS_TYPE") = Trim(Right(cboContentsType, 9))
        dtaStoreInfo.Recordset.Update
        
        dtaStoreInfo.Recordset.Edit
        dtaStoreInfo.Recordset("RETENTION") = "15"
        dtaStoreInfo.Recordset.Update
        
        dtaStoreInfo.Recordset.Edit
        dtaStoreInfo.Recordset("Application") = Trim(cboApplication.Text)
        dtaStoreInfo.Recordset.Update
''''''''''''''''''''''''''''''''''''''''''''''adding the files
dtaStoreInfo.DatabaseName = txtDatabase.Text

dtaStoreInfo.RecordSource = "FileNames"
dtaStoreInfo.Refresh

qwe = 0

Do Until qwe = lstFilesInDocument.ListCount
    lstFilesInDocument.Selected(qwe) = True
    'MsgBox lstFilesInDocument.Text
     
    dtaStoreInfo.Recordset.AddNew
    dtaStoreInfo.Recordset("DocName") = txtDocName.Text
    dtaStoreInfo.Recordset("FileName") = lstFilesInDocument.Text
    dtaStoreInfo.Recordset.Update
 
 qwe = qwe + 1

Loop



cmdClear_Click

End Sub

Private Sub Command3_Click()
  
End Sub

Private Sub cmdView_Click()
  Dim RetVal
     Dim ImageToGet As String
    Dim x As Integer
    x = 0
'MsgBox "this will read the list1.text path - get the files in that path - record the files in a local DB - and launch the programs based on a set of rules."

                Data3.DatabaseName = App.Path & "\images.mdb"
                Data3.RecordSource = "ImageList"
                Data3.Refresh
                
                Do Until Data3.Recordset.EOF
                    Data3.Recordset.Delete
                    Data3.Recordset.MoveNext
                Loop
                
                If lstFilesInDocument.Text = "" Then
                    Exit Sub
                End If
                
               ' File1.Path = lstFilesInDocument.Text
                
                Do Until x = lstFilesInDocument.ListCount
                                                 
                    If lstFilesInDocument.Selected(x) = True Then
                        List1.Selected(x) = True
                        
                        ImageToGet = Trim(List1.Text)
                        Data3.Recordset.AddNew
                        Data3.Recordset("ImagePath") = ImageToGet
                        Data3.Recordset.Update
                    End If
                
                x = x + 1
                
                Loop
                        
              
                RetVal = Shell(App.Path & "\VBDEMO32.exe", 1)



End Sub

Private Sub Form_Load()
cmdBoxesByeBye_Click
Me.Top = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Image1_Click()
' show common dialog box to select a file
        frmDialog!CommonDialog2.ShowOpen
         frmDialog!CommonDialog2.Filter = "Database Files| *.mdb"

       txtDatabase.Text = frmDialog!CommonDialog2.filename
       
       
       
       
       
       ''''put this back in before writing
       
 'MsgBox UCase(Right(txtDatabase.Text, 8)) & "----" & "EDMS.MDB"
       'If UCase(Right(txtDatabase.Text, 8)) = "EDMS.MDB" Then
       '     MsgBox "EDMS is a template database. You can not use EDMS as a database name."
       '     txtDatabase.Text = ""
       '     Exit Sub
       'End If





'MsgBox txtDatabase.Text
       
       If UCase(txtDatabase.Text) = "*.MDB" Then
            MsgBox "You have not selected a database name."
            txtDatabase.Text = ""
            Exit Sub
       End If
       
cmdInitialize_Click

End Sub

Private Sub lstFilesInDocument_DblClick()
cmdView_Click
End Sub

Private Sub lstFilesInDocument_KeyDown(KeyCode As Integer, Shift As Integer)

Dim Position As Integer
Dim xyz As Integer
Dim MySelectedText As String
MySelectedText = ""
Dim TotalRecords As Integer

TotalRecords = lstFilesInDocument.ListCount
 
If KeyCode = 40 Then
   ' MsgBox "You pressed the down arrow"
    lstFilesInDocumentTemp.Clear
    
    Do Until Position = TotalRecords
       
        If lstFilesInDocument.Selected(Position) = True Then
                
                If Position + 1 = TotalRecords Then Exit Sub
        
        MySelectedText = lstFilesInDocument.Text
           ' MsgBox lstFilesInDocument.Text
        End If
        
        Position = Position + 1
    
    Loop
        
    Dim WriteAfterThisRecord As Integer
    WriteAfterThisRecord = 30999
    xyz = 0
  
  
  Do Until xyz = TotalRecords
     
      lstFilesInDocument.Selected(xyz) = True
      
    
      
    If Trim(lstFilesInDocument.Text) = Trim(MySelectedText) Then
        WriteAfterThisRecord = xyz + 1
      '  MsgBox "we have a match"
    Else
       lstFilesInDocumentTemp.AddItem lstFilesInDocument.Text
       
      ' MsgBox "No match"
    End If
    
    
    If xyz = WriteAfterThisRecord Then
        lstFilesInDocumentTemp.AddItem MySelectedText
        WriteAfterThisRecord = 30999
    End If
    
    
    
    xyz = xyz + 1
    
  
  Loop
 
    lstFilesInDocument.Clear
    
   xyz = 0
  
  
  Do Until xyz = TotalRecords
    lstFilesInDocumentTemp.Selected(xyz) = True
    
       lstFilesInDocument.AddItem lstFilesInDocumentTemp.Text
    
    xyz = xyz + 1
  Loop
 
 xyz = 0
  
    Dim xyzHolder As Integer
      Do Until xyz = TotalRecords
         lstFilesInDocument.Selected(xyz) = True
           If Trim(lstFilesInDocument.Text) = Trim(MySelectedText) Then
                xyzHolder = xyz
           End If
         xyz = xyz + 1
      Loop
      
  
     lstFilesInDocument.Selected(xyzHolder - 1) = True
  
End If


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''this is for the up arrow key ''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim PositionHolder As Integer

If KeyCode = 38 Then
   ' MsgBox "You pressed the up arrow"
    
        lstFilesInDocumentTemp.Clear
    
    Do Until Position = TotalRecords
       
        If lstFilesInDocument.Selected(Position) = True Then
                
                If Position = 0 Then Exit Sub
        
        MySelectedText = lstFilesInDocument.Text
        PositionHolder = Position
        
           ' MsgBox lstFilesInDocument.Text
        End If
        
        Position = Position + 1
    
    Loop
        
        
    xyz = 0
  
  
  Do Until xyz = TotalRecords
     
      lstFilesInDocument.Selected(xyz) = True
      
    
    If xyz = PositionHolder - 1 Then
        lstFilesInDocumentTemp.AddItem MySelectedText
        lstFilesInDocumentTemp.AddItem lstFilesInDocument.Text
    End If
    
    If xyz = PositionHolder Then
        GoTo SkipThisOne
    End If
    
    
    If xyz < PositionHolder - 1 Then
        lstFilesInDocumentTemp.AddItem lstFilesInDocument.Text
    End If
    
    If xyz > PositionHolder Then
        lstFilesInDocumentTemp.AddItem lstFilesInDocument.Text
    End If
      
SkipThisOne:
    
    
    xyz = xyz + 1
    
  
  Loop
 
    lstFilesInDocument.Clear
    
   xyz = 0
  
  
  Do Until xyz = TotalRecords
    lstFilesInDocumentTemp.Selected(xyz) = True
    
       lstFilesInDocument.AddItem lstFilesInDocumentTemp.Text
    
    xyz = xyz + 1
  Loop
 
 xyz = 0
  
    xyzHolder = 0
     Do Until xyz = TotalRecords
       lstFilesInDocument.Selected(xyz) = True
           If Trim(lstFilesInDocument.Text) = Trim(MySelectedText) Then
               xyzHolder = xyz
           End If
        xyz = xyz + 1
     Loop
  
  
     lstFilesInDocument.Selected(xyzHolder + 1) = True
    
    
    
End If

End Sub

Private Sub mnuAbout_Click()
frmAbout.Show
End Sub

Private Sub mnuAddFiles_Click()
cmdAddFiles_Click
End Sub

Private Sub mnuClear_Click()
cmdClear_Click
End Sub

Private Sub mnuContents_Click()
    Dim nRet As Integer
     Dim ThisIsThePath As String
    ThisIsThePath = App.Path & "\"
    'MsgBox ThisIsThePath
    
    'App.HelpFile = ThisIsThePath & "YEI_Cont.HLP"
    App.HelpFile = ""
    
    
    'MsgBox App.HelpFile
    'if there is no helpfile for this project display a message to the user
    'you can set the HelpFile for your application in the
    'Project Properties dialog
    If Len(App.HelpFile) = 0 Then
        MsgBox "Unable to display Help Contents. There is no Help associated with this project.", vbInformation, Me.Caption
    Else
        On Error Resume Next
        nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)
        If Err Then
            MsgBox Err.Description, , Me.Caption
        End If
    End If
    '''''''''''''''''''''''''''''''''''''''''''
'MsgBox "Help will be added after testing is complete."
End Sub

Private Sub mnuDBSelect_Click()
Image1_Click
End Sub

Private Sub mnuExit_Click()
cmdExit_Click
End Sub

Private Sub mnuPrepareDB_Click()
FraNewDatabaseName.Visible = True
FraNewDatabaseName.Left = 2520
FraNewDatabaseName.Top = 1800
txtNewDatabaseName.SetFocus
End Sub

Private Sub mnuSaveDoc_Click()
cmdSave_Click
End Sub

Private Sub txtDocName_LostFocus()
txtDocName.Text = UCase(txtDocName.Text)

If txtDocName.Text = "" Then Exit Sub
dtaUniqueDocName.DatabaseName = txtDatabase.Text

dtaUniqueDocName.RecordSource = "select * from DocNames where DocName='" & txtDocName.Text & "'"
dtaUniqueDocName.Refresh

On Error GoTo ErrorCheck

If dtaUniqueDocName.Recordset.EOF Then Exit Sub

MsgBox "This is not a unique Document name. Please rename your document."
txtDocName.SetFocus

Exit Sub
ErrorCheck:

If Err.Number = 91 Then
    MsgBox "You must select a database first."
    txtDocName.Text = ""
    Image1_Click
End If
    
End Sub

Private Sub txtInput_LostFocus(Index As Integer)
'''''''''''''''''''''''''''''''''''validation rules
If Trim(lblInput(Index).Caption) = "FIN" Then
        If Len(txtInput(Index)) = 0 Or Len(txtInput(Index)) = 11 Then
            GoTo NextTest
        End If
    
        MsgBox "You do not have the proper FIN. A FIN is 11 digits. "
        txtInput(Index).SetFocus
        Exit Sub
    
End If

If Trim(lblInput(Index).Caption) = "Contract Number" Then
    If Len(txtInput(Index)) = 0 Or Len(txtInput(Index)) = 5 Then
        GoTo NextTest
    End If
    
        MsgBox "You do not have the proper Contract Number. A Contract Number is 5 digits. "
        txtInput(Index).SetFocus
        Exit Sub
End If
 

 
NextTest:

''''''''''''''''''''check date validation
Dim x As Integer
x = Index

'Exit Sub 'this will turn off the date validation

txtInput(x).Text = UCase(txtInput(x).Text)

If txtInput(x).Text = "" Then Exit Sub 'lets user enter nothing

Dim zzzz As Integer
Dim StartYear As Integer
Dim YearEntered As Integer
Dim IsLeapYear As Boolean
Dim Count As Integer

IsLeapYear = False

StartYear = 1600

      zzzz = 0

lstColumnType.Selected(x) = True
    
If Trim(lstColumnType.Text) = "DATE" Then GoTo CHECKIT
'MsgBox Trim(lstColumnType.Text)
Exit Sub
        
        
CHECKIT:
           If Mid(txtInput(x).Text, 3, 1) <> "/" Then GoTo TAINTnoGOOD
           If Mid(txtInput(x).Text, 6, 1) <> "/" Then GoTo TAINTnoGOOD
           
           Count = 1
           Do Until Count > 9
                If Mid(txtInput(x).Text, Count, 1) = " " Then
                        MsgBox "Your Month should be entered between 01 and 12."
                        txtInput(x).SetFocus
                        Exit Sub
                End If
                
                Count = Count + 1
           Loop
           
           If Val(Mid(txtInput(x).Text, 1, 2)) < 1 Or Val(Mid(txtInput(x).Text, 1, 2)) > 12 Then
                MsgBox "Your Month should be entered between 01 and 12."
                txtInput(x).SetFocus
                Exit Sub
           End If

           If Val(Mid(txtInput(x).Text, 7, 4)) < 1000 Or Val(Mid(txtInput(x).Text, 7, 4)) > 9999 Then
                MsgBox " Your Year is invalid. Use a four digit year such as 1999."
                txtInput(x).SetFocus
                Exit Sub
           End If
           
           
           YearEntered = Mid(txtInput(x).Text, 7, 4)
            'this checks for the right number of days in a month dependant
            'upon leap years
           Do Until StartYear > 3000
                If YearEntered = StartYear Then
                    IsLeapYear = True
                End If
                'If StartYear = 1996 Then MsgBox "this is correct 1996"
                StartYear = StartYear + 4
           Loop
                
        If Val(Mid(txtInput(x).Text, 1, 2)) = 1 And Val(Mid(txtInput(x).Text, 4, 2)) > 0 And Val(Mid(txtInput(x).Text, 4, 2)) < 32 Then GoTo LOOKSgoodTOme
        
'''''''''''''''''''''''''''''''''''''''feb leap year validation
        If IsLeapYear = False Then
            If Val(Mid(txtInput(x).Text, 1, 2)) = 2 And Val(Mid(txtInput(x).Text, 4, 2)) > 0 And Val(Mid(txtInput(x).Text, 4, 2)) < 29 Then
                GoTo LOOKSgoodTOme
            End If
            
            If Val(Mid(txtInput(x).Text, 4, 2)) > 29 Then
                MsgBox "This is not a valid date. February has only 28 days except during leap years."
                txtInput(x).SetFocus
                Exit Sub
            End If
            
        End If
        
        If IsLeapYear = True Then
            If Val(Mid(txtInput(x).Text, 1, 2)) = 2 And Val(Mid(txtInput(x).Text, 4, 2)) > 0 And Val(Mid(txtInput(x).Text, 4, 2)) < 30 Then
                GoTo LOOKSgoodTOme
                Exit Sub
            End If
            
            If Val(Mid(txtInput(x).Text, 4, 2)) > 29 Then
                MsgBox "This is not a valid date. February has 29 days during leap years."
                txtInput(x).SetFocus
                Exit Sub
            End If
        End If
''''''''''''''''''''''''''''''''''''''''''''''''''''

        If Val(Mid(txtInput(x).Text, 1, 2)) = 3 And Val(Mid(txtInput(x).Text, 4, 2)) > 0 And Val(Mid(txtInput(x).Text, 4, 2)) < 32 Then GoTo LOOKSgoodTOme
        If Val(Mid(txtInput(x).Text, 1, 2)) = 4 And Val(Mid(txtInput(x).Text, 4, 2)) > 0 And Val(Mid(txtInput(x).Text, 4, 2)) < 31 Then GoTo LOOKSgoodTOme
        If Val(Mid(txtInput(x).Text, 1, 2)) = 5 And Val(Mid(txtInput(x).Text, 4, 2)) > 0 And Val(Mid(txtInput(x).Text, 4, 2)) < 32 Then GoTo LOOKSgoodTOme
        If Val(Mid(txtInput(x).Text, 1, 2)) = 6 And Val(Mid(txtInput(x).Text, 4, 2)) > 0 And Val(Mid(txtInput(x).Text, 4, 2)) < 31 Then GoTo LOOKSgoodTOme
        If Val(Mid(txtInput(x).Text, 1, 2)) = 7 And Val(Mid(txtInput(x).Text, 4, 2)) > 0 And Val(Mid(txtInput(x).Text, 4, 2)) < 32 Then GoTo LOOKSgoodTOme
        If Val(Mid(txtInput(x).Text, 1, 2)) = 8 And Val(Mid(txtInput(x).Text, 4, 2)) > 0 And Val(Mid(txtInput(x).Text, 4, 2)) < 32 Then GoTo LOOKSgoodTOme
        If Val(Mid(txtInput(x).Text, 1, 2)) = 9 And Val(Mid(txtInput(x).Text, 4, 2)) > 0 And Val(Mid(txtInput(x).Text, 4, 2)) < 31 Then GoTo LOOKSgoodTOme
        If Val(Mid(txtInput(x).Text, 1, 2)) = 10 And Val(Mid(txtInput(x).Text, 4, 2)) > 0 And Val(Mid(txtInput(x).Text, 4, 2)) < 32 Then GoTo LOOKSgoodTOme
        If Val(Mid(txtInput(x).Text, 1, 2)) = 11 And Val(Mid(txtInput(x).Text, 4, 2)) > 0 And Val(Mid(txtInput(x).Text, 4, 2)) < 31 Then GoTo LOOKSgoodTOme
        If Val(Mid(txtInput(x).Text, 1, 2)) = 12 And Val(Mid(txtInput(x).Text, 4, 2)) > 0 And Val(Mid(txtInput(x).Text, 4, 2)) < 32 Then GoTo LOOKSgoodTOme
      
      MsgBox "This is not a valid date. You have entered an incorrect number of days for the month specified."
   MsgBox txtInput(x).Text
   txtInput(x).SetFocus
   Exit Sub
           
       
   
    
   Exit Sub
   
TAINTnoGOOD:
   MsgBox "This is not a valid date please use the format MM/DD/YYYY."
   txtInput(x).SetFocus
   Exit Sub
   
LOOKSgoodTOme:
End Sub
